home *** CD-ROM | disk | FTP | other *** search
/ Belgian Amiga Club - ADF Collection / BS1 part 05.zip / BS1 part 5 / PDraw3.0.adf / pdraw_rex.lzh / SplitPath.rexx < prev    next >
OS/2 REXX Batch file  |  1992-06-15  |  229b  |  14 lines
  1. /*
  2.     SplitPath.rexx
  3.     This Genie will split the path from a pathname
  4. */
  5.  
  6. parse arg path
  7.  
  8. colon = lastpos('/', path)
  9. if colon = 0 then colon = lastpos(':', path)
  10.  
  11. if colon = 0 then return(path)
  12. else return(substr(path, colon + 1))
  13.  
  14.